|
用户登陆
|
|
|
|
<% call ShowUserLogin() %>
|
|
|
|
|
人才招聘 |
|
|
 |
|
|
|
|
|
|
<%
function ChangeChr(str)
ChangeChr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"
")," "," ")
end function
%>
<%
dim action,Quarters
Quarters=trim(request.QueryString("Quarters"))
action=trim(request.QueryString("action"))
if action="add" then
Quarters=trim(request.Form("Quarters"))
Uname=trim(request.Form("Name"))
Sex=trim(request.Form("Sex"))
Marry=trim(request.Form("Marry"))
Birthday=trim(request.Form("Birthday"))
Stature=trim(request.Form("Stature"))
School=trim(request.Form("School"))
Studydegree=trim(request.Form("Studydegree"))
Specialty=trim(request.Form("Specialty"))
Gradyear=trim(request.Form("Gradyear"))
Residence=trim(request.Form("Residence"))
Edulevel=trim(request.Form("Edulevel"))
Edulevel=trim(ChangeChr(Edulevel))
Experience=trim(request.Form("Experience"))
Experience=trim(ChangeChr(Experience))
Phone=trim(request.Form("Phone"))
Mobile=trim(request.Form("Mobile"))
Email=trim(request.Form("Email"))
Add=trim(request.Form("Add"))
Postcode=trim(request.Form("Postcode"))
if School="" then
School=null
end if
if Studydegree="" then
Studydegree=null
end if
if Specialty="" then
Specialty=null
end if
if Gradyear="" then
Gradyear=null
end if
if Mobile="" then
Mobile=null
end if
if Add="" then
Add=null
end if
if Postcode="" then
Postcode=null
end if
'=================================
set rs=server.createobject("adodb.recordset")
sql="select * from HrDemandAccept where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("Quarters")=Quarters
rs("name")=Uname
rs("Sex")=Sex
rs("Marry")=Marry
rs("Birthday")=Birthday
rs("Stature")=Stature
rs("School")=School
rs("Studydegree")=Studydegree
rs("Specialty")=Specialty
rs("Gradyear")=Gradyear
rs("Residence")=Residence
rs("Edulevel")=Edulevel
rs("Experience")=Experience
rs("Phone")=Phone
rs("Mobile")=Mobile
rs("Email")=Email
rs("Add")=Add
rs("Postcode")=Postcode
rs("Adddate")=date()
rs.update
rs.close
set rs=nothing
response.write""
else
%>
<% end if %>
|
|
|